home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / rexx / wetink.rexx < prev    next >
OS/2 REXX Batch file  |  1995-04-11  |  1KB  |  37 lines
  1. /* Image Engineer ARexx macro script           */
  2. /* by Simon Edwards                            */
  3. /* Makes a B&W image look like the ink has run */
  4.  
  5. Options results
  6. signal on error            /* Setup a place for errors to go */
  7.  
  8. if arg()==0 then exit
  9.  
  10. NEGATIVE arg(1)
  11. negimage=result
  12. 'CONVOLVE '||negimage||' "IE:convolves/Wet_WhiteOnBlack"'
  13. convolveimage=result
  14. CLOSE negimage
  15. NEGATIVE convolveimage
  16. CLOSE convolveimage
  17.  
  18. exit
  19.  
  20. /*******************************************************************/
  21. /* This is where control goes when an error code is returned by IE */
  22. /* It puts up a message saying what happened and on which line     */
  23. /*******************************************************************/
  24. error:
  25. if RC=5 then do            /* Did the user just cancel us? */
  26.     IE_TO_FRONT
  27.     LAST_ERROR
  28.     'REQUEST "'||RESULT||'"'
  29.     exit
  30. end
  31. else do
  32.     IE_TO_FRONT
  33.     LAST_ERROR
  34.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  35.     exit
  36. end
  37.